perm filename CYCOMB.LAP[1,LMM] blob
sn#036300 filedate 1973-04-12 generic text, type T, neo UTF8
(LAP MOLECULES SUBR)
(PUSH P 1)
(PUSH P 2)
(CAIE 2 (QUOTE 0))
(JRST 0 TAG9)
(CALL 1 (E GENMOL))
(JRST 0 TAG8)
TAG9 (PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E SUPERATOMPARTITIONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E SUPERATOMS))
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG17 0))
(PUSH P -5 P)
(CALL 1 (E CLCREATE))
(HRRZ@ 2 -4 P)
(CALL 2 (E *APPEND))
(CALL 1 (E GENMOL))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG17 (MOVEM 1 -4 P)
TAG3
TAG4 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 -4 P)
(SUB P (C 0 0 5 5))
TAG10
TAG8 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP SUPERATOMPARTITIONS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E VALENCE))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(PUSH P (C 0 0 TAG35 0))
(PUSH P -1 P)
(MOVE 1 -3 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG35 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 2 1)
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(CALL 2 (E CLDIFF))
(MOVEM 1 -2 P)
(CALL 1 (E CLCOUNT))
(PUSH P (C 0 0 (QUOTE 2) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 2 -12 P)
(MOVE 1 -13 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG26)
(MOVE 2 -13 P)
(MOVE 1 -16 P)
(CALL 2 (E CLPARTS))
(MOVEM 1 -10 P)
TAG6 (MOVE 1 -10 P)
(JUMPE 1 TAG24)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -11 P)
(MOVE 1 -16 P)
(CALL 2 (E CLDIFF))
(MOVE 2 1)
(MOVE 1 -14 P)
(CALL 2 (E *APPEND))
(MOVEI 2 (QUOTE 2))
(MOVEM 1 -9 P)
(MOVE 1 -13 P)
(CALL 2 (E *QUO))
(MOVEM 1 -7 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -8 P)
TAG7 (MOVE 2 -7 P)
(MOVE 1 -8 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG21)
(MOVEI 4 (QUOTE 9999999))
(MOVEI 3 (QUOTE 2))
(MOVE 2 -8 P)
(MOVE 1 -11 P)
(CALL 4 (E CLPARTITIONSN))
(MOVEM 1 -5 P)
TAG8 (MOVE 1 -5 P)
(JUMPE 1 TAG19)
(HLRZ@ 1 1)
(MOVEM 1 -6 P)
(CALL 1 (E CLCREATE))
(MOVEM 1 -4 P)
(CALL 1 (E MAXUNSATL))
(MOVEM 1 -3 P)
(JUMPE 1 TAG16)
(MOVE 2 -4 P)
(MOVEI 1 (QUOTE CDR))
(CALL 2 (E MAPCAR))
(MOVE 4 1)
(MOVE 3 -3 P)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -15 P)
(CALL 4 (E NUMPARTITIONS*))
(MOVEM 1 -1 P)
TAG9 (MOVE 1 -1 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(PUSH P -4 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG10 (MOVE 1 -5 P)
(JUMPN 1 TAG49)
(MOVE 1 -3 P)
(JRST 0 TAG45)
TAG49 (HLRZ@ 1 -5 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HLRZ@ 1 -5 P)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
TAG11 (MOVEI 1 (QUOTE 0))
(MOVEM 1 -2 P)
TAG12 (MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(CALL 1 (E SUB1))
(MOVEM 1 -1 P)
(HLRZ@ 1 -8 P)
(MOVEM 1 -4 P)
(HRRZ@ 1 -8 P)
(MOVEM 1 -8 P)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG51)
(HLRZ@ 2 -8 P)
(MOVE 1 -4 P)
(CALL 2 (E EQUAL))
(JUMPN 1 TAG12)
TAG51 (MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 2 (E CONS))
(MOVE 2 -2 P)
(CALL 2 (E CONS))
(MOVE 2 -3 P)
(CALL 2 (E CONS))
(MOVEM 1 -3 P)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG10)
(JRST 0 TAG11)
TAG45 (MOVE 2 -15 P)
(CALL 2 (E CONS))
(MOVE 2 -6 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 6 6))
(MOVEM 1 0 P)
TAG13
TAG14 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG9)
TAG15
TAG16
TAG17
TAG18 (HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
(JRST 0 TAG8)
TAG19
TAG20 (MOVEI 2 (QUOTE 1))
(MOVE 1 -8 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -8 P)
(JRST 0 TAG7)
TAG21
TAG22
TAG23 (HRRZ@ 1 -10 P)
(MOVEM 1 -10 P)
(JRST 0 TAG6)
TAG24
TAG25 (MOVEI 2 (QUOTE 1))
(MOVE 1 -13 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -13 P)
(JRST 0 TAG5)
TAG26 (MOVE 1 0 P)
(SUB P (C 0 0 17 17))
(POPJ P)
NIL
(LAP MAXUNSATL SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG8)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG13 0))
(PUSH P -1 P)
(MOVEI 1 (QUOTE 0))
(PUSH P 1)
(PUSH P 1)
(PUSH P 1)
(HLRZ@ 1 -6 P)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -2 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(HRRZ@ 2 1)
(MOVEM 1 -1 P)
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -4 P)
(HRRZ@ 1 -1 P)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(CALL 1 (E VALENCE))
(POP P 2)
(CALL 2 (E *TIMES))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(HLRZ@ 1 -1 P)
(CALL 1 (E VALENCE))
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 2 (E MAX))
(MOVEM 1 -5 P)
TAG3
TAG4 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG5 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 2 0 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E *PLUS))
(MOVE 2 -1 P)
(PUSH P 1)
(MOVEI 1 (QUOTE -2))
(CALL 2 (E *TIMES))
(POP P 2)
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E TWICE))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVEI 1 (QUOTE -1))
(CALL 2 (E MIN))
(POP P 2)
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE 0.5))
(CALL 2 (E *TIMES))
(CALL 1 (E FIX))
(CALL 1 (E NCONS))
(SUB P (C 0 0 3 3))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG13 (MOVEM 1 0 P)
TAG6
TAG7 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG8 (MOVE 1 0 P)
(SUB P (C 0 0 ∧`4))
(POPJ P)
NIL
(LAP SUPERATOMS SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -1 P)
(HLRZ@ 2 1)
(HRRZ@ 2 2)
(CALL 1 (E CAAR))
(CALL 2 (E RINGS))
(HRRZ@ 2 -3 P)
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(JCALL 1 (E GROUPRADS))
NIL
(LAP COMPUTEFV SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 1 (QUOTE 0))
(PUSH P 1)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E VALENCE))
(HRRZ@ 2 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 -4 P)
(CALL 2 (E *PLUS))
(MOVE 2 -3 P)
(MOVEM 1 -4 P)
(HRRZ@ 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E *PLUS))
(MOVE 2 -3 P)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEI 2 (QUOTE -2))
(CALL 2 (E *TIMES))
(POP P 2)
(SUB P (C 0 0 4 4))
(JCALL 2 (E *PLUS))
NIL
(LAP SUBFUN1CLBYVALENCE SUBR)
(HLRZ@ 1 1)
(JCALL 1 (E VALENCE))
NIL
(LAP CLBYVALENCE SUBR)
(MOVE 2 1)
(PUSH P 1)
(MOVEI 1 (QUOTE SUBFUN1CLBYVALENCE))
(CALL 2 (E GROUPBY))
(MOVEM 1 0 P)
(MOVE 2 1)
(MOVEI 1 (QUOTE CAR))
(CALL 2 (E MAPCAR))
(CALL 1 (E MAXLIST))
(PUSH P (C 0 0 (QUOTE 2) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -1 P)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -5 P)
(MOVE 1 -4 P)
(CALL 3 (E LMASSOC))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP RINGS SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 2 (E COMPUTEFV))
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E CLBYVALENCE))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 1)
(MOVEI 1 (QUOTE CLCOUNT))
(CALL 2 (E MAPCAR))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E RINGSKELETONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P (C 0 0 TAG12 0))
(PUSH P -3 P)
(MOVE 2 1)
(MOVE 1 -6 P)
(CALL 2 (E STRUCTURESWITHATOMS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG12 (MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP FVPARTITIONS SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 3 (QUOTE 1))
(HRRZ@ 2 2)
(CALL 3 (E FVPARTITION1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(CALL 1 (E ROWS))
(MOVEM 1 -1 P)
(MOVE 2 -2 P)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(PUSH P -5 P)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -6 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVE 1 -5 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG22 0))
(PUSH P -1 P)
(MOVE 1 -5 P)
(CALL 1 (E PLUSLIST))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 (E PLUSLIST))
(CALL 1 (E MINUS))
(POP P 2)
(CALL 2 (E *PLUS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG22 (MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
TAG5 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
TAG6 (HRRZ@ 1 -6 P)
(MOVEM 1 -6 P)
(JRST 0 TAG2)
TAG7 (MOVE 1 0 P)
(MOVE 2 -8 P)
(CALL 2 (E CONS))
(MOVE 2 -7 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 7 7))
(MOVEM 1 0 P)
TAG8
TAG9
TAG10 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP RINGSKELETONS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 2 (E FVPARTITIONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E NOFV-RINGS))
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG13 0))
(PUSH P -5 P)
(MOVE 2 1)
(HRRZ@ 1 -4 P)
(CALL 2 (E ATTACHFVS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG13 (MOVEM 1 -4 P)
TAG3
TAG4 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 -4 P)
(SUB P (C 0 0 7 7))
(POPJ P)
NIL
(LAP NOFV-RINGS SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(CALL 1 (E PLUSLIST))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CAIE 1 (QUOTE 0))
(JRST 0 TAG9)
(HLRZ@ 1 -3 P)
(CALL 1 (E SINGLERINGS))
(JRST 0 TAG5)
TAG9 (MOVEI 2 (QUOTE 1))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG10)
(MOVE 1 -3 P)
(CALL 1 (E DAISIES))
(JRST 0 TAG5)
TAG10 (MOVE 1 -3 P)
(CALL 1 (E MINLOOPS))
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(CALL 1 (E MAXLOOPS))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P -1 P)
TAG1 (MOVE 2 -3 P)
(MOVE 1 0 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(PUSH P (C 0 0 TAG15 0))
(PUSH P -2 P)
(MOVE 2 -7 P)
(MOVE 1 -2 P)
(CALL 2 (E KLOOPEDRINGS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG15 (MOVEM 1 -1 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E *PLUS))
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -1 P)
(SUB P (C 0 0 2 2))
TAG5 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP DAISIES SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HLRZ@ 1 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(HRRZ@ 1 -4 P)
(PUSH P (C 0 0 (QUOTE 3) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG17)
(JRST 0 TAG5)
TAG17 (HLRZ@ 1 -2 P)
(MOVEM 1 -1 P)
(MOVEI 2 (QUOTE 99999))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG19)
(JRST 0 TAG5)
TAG19 (MOVE 1 -3 P)
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG21)
(JRST 0 TAG5)
TAG21
TAG4 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 0 P)
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *QUO))
(MOVEI 4 (QUOTE 99999999))
(MOVEI 3 (QUOTE 1))
(MOVE 2 1)
(EXCH 1 -4 P)
(CALL 4 (E NUMPARTITIONS))
(SUB P (C 0 0 5 5))
(MOVEM 1 0 P)
TAG6 (MOVE 1 0 P)
(JUMPE 1 TAG9)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG23 0))
(PUSH P -3 P)
(CALL 1 (E CLCREATE))
(CALL 1 (E DAISY))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG23 (MOVEM 1 -2 P)
TAG7
TAG8 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG6)
TAG9 (MOVE 1 -2 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP NOLOOPEDRINGS SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG9)
(HRRZ@ 1 0 P)
(CALL 1 (E CATALOG))
(JRST 0 TAG8)
TAG9 (MOVE 1 0 P)
(CALL 1 (E BIVALENTPARTITIONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 -2 P)
(CALL 1 (E CATALOG))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVE 1 -5 P)
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG20 0))
(PUSH P -5 P)
(CALL 1 (E CLCREATE))
(MOVE 2 -4 P)
(CALL 2 (E ATTACHBIVALENTS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG20 (MOVEM 1 -4 P)
TAG3
TAG4 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 -4 P)
(SUB P (C 0 0 6 6))
TAG10
TAG8 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP ROWS SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (NIL)))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E CARLIST))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E CDRLIST))
(CALL 1 (E ROWS))
(POP P 2)
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP BIVALENTPARTITIONS SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 0) 0))
(PUSH P (C 0 0 (QUOTE 3) 0))
(HRRZ@ 1 -3 P)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 2 (QUOTE 9999))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG10)
(JRST 0 TAG5)
TAG10 (MOVE 1 -1 P)
(JUMPN 1 TAG12)
(JRST 0 TAG5)
TAG12 (HLRZ@ 1 -1 P)
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(CALL 2 (E *TIMES))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
TAG4 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 -3 P)
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *QUO))
(HLRZ@ 4 -5 P)
(MOVEI 3 (QUOTE 0))
(MOVE 2 1)
(EXCH 1 -4 P)
(SUB P (C 0 0 6 6))
(JCALL 4 (E NUMPARTITIONS))
NIL
(COMMENT THESE FNS KNOW WHAT STRUCTURES ARE)
(LAP FREEVALENCESIZE SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE STRUC))
(JRST 0 TAG17)
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE FV))
(JRST 0 TAG4)
(MOVE 2 -4 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E *PLUS))
(MOVEM 1 -4 P)
TAG3
TAG4 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 -4 P)
(SUB P (C 0 0 5 5))
(JRST 0 TAG16)
TAG17 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE FORM))
(JRST 0 TAG24)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE ATTACHFVS))
(JRST 0 TAG26)
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 1 -1 P)
(CALL 1 (E CADR))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG8 (MOVE 1 -4 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 0 P)
TAG9 (MOVE 1 -1 P)
(JUMPE 1 TAG13)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVEI 2 (QUOTE 999999))
(MOVE 1 0 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG13)
(MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E *TIMES))
(MOVE 2 -5 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -5 P)
TAG10
TAG11 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E *PLUS))
(MOVEM 1 0 P)
TAG12 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG9)
TAG13
TAG14 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG8)
TAG15 (MOVE 1 -5 P)
(SUB P (C 0 0 6 6))
(JRST 0 TAG25)
TAG26 (HRRZ@ 1 0 P)
(CALL 1 (E CADDR))
(CALL 1 (E FREEVALENCESIZE))
TAG33
TAG25 (JRST 0 TAG16)
TAG24 (MOVEI 1 (QUOTE NIL))
TAG16 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP NODES SUBR)
(HRRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEI 1 (QUOTE NODENUM))
(JCALL 2 (E MAPCAR))
NIL
(LAP COLLECTFV SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(CAIE 1 (QUOTE FV))
(JRST 0 TAG4)
(MOVE 2 0 P)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP TRIMZEROS SUBR)
(PUSH P 1)
(JUMPE 1 TAG4)
(CALL 1 (E PLUSLIST))
(CAIE 1 (QUOTE 0))
(JRST 0 TAG5)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG5 (HLRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E TRIMZEROS))
(POP P 2)
(CALL 2 (E XCONS))
TAG6
TAG4 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP CATALOG SUBR)
(PUSH P 1)
(CALL 1 (E TRIMZEROS))
(MOVEM 1 0 P)
(CALL 1 (E PLUSLIST))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E EQUAL))
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E LAST))
(MOVEI 2 (QUOTE 2))
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *PLUS))
(CALL 1 (E STRUCWITH2NODES))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E CATALOG3))
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP STRUCWITH2NODES SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 2 0 P)
(MOVEI 1 (QUOTE (NIL)))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 2 -4 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG17)
(JRST 0 TAG8)
TAG17 (MOVE 2 0 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG6
TAG7 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG8 (MOVE 2 0 P)
(MOVEI 1 (QUOTE (NIL)))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(MOVE 2 -4 P)
(MOVEM 1 -4 P)
(MOVEI 1 (QUOTE MBONDS))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE (NIL)))
(MOVEM 1 -3 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E CONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(MOVE 2 -4 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE STRUC))
(SUB P (C 0 0 5 5))
(JCALL 2 (E XCONS))
NIL
(LAP CATALOG3 SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 1)
(CALL 1 (E PLUSLIST))
(CAIN 1 (QUOTE 0))
(JRST 0 TAG5)
(JRST 0 TAG4)
TAG5 (MOVEI 2 (QUOTE 2))
(HLRZ@ 1 -1 P)
(PUSH P (SPECIAL CATALOG-LIST))
(CALL 2 (E *QUO))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E NTH))
(MOVEM 1 0 P)
TAG6
TAG4 (MOVE 1 0 P)
(JUMPE 1 TAG9)
(HLRZ@ 1 1)
(JUMPE 1 TAG9)
(HLRZ@ 1 0 P)
(JRST 0 TAG8)
TAG9 (MOVE 2 -1 P)
(MOVEI 1 (QUOTE CATALOG))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE FORM))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
TAG11
TAG8 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP DAISY SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVEI 1 (QUOTE (NIL)))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL LASTNODE))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVE 2 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(MOVEI 1 (QUOTE DAISY))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE (NIL)))
(PUSH P 1)
(MOVE 1 (SPECIAL LASTNODE))
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE STRUC))
(CALL 2 (E XCONS))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL LASTNODE))
(MOVEM 1 -1 P)
(PUSH P -2 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -2 P)
TAG2 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(HLRZ@ 3 -3 P)
(MOVE 2 -6 P)
(MOVE 1 -5 P)
(CALL 3 (E PUTBIVN))
(MOVEM 1 -5 P)
(MOVEM 1 0 P)
TAG3
TAG4 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 8 8))
(JCALL 1 (E NCONS))
NIL
(LAP SINGLERING SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVE 1 0 P)
(CALL 1 (E BIVCHAIN))
(PUSH P 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(CALL 1 (E LAST))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(HLRZ@ 2 0 P)
(HLRZ@ 1 1)
(CALL 2 (E CONNECT))
(SUB P (C 0 0 1 1))
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE SINGLERING))
(CALL 2 (E CONS))
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(CALL 2 (E CONS))
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(CALL 2 (E XCONS))
(HLRZ@ 2 0 P)
(SUB P (C 0 0 2 2))
(JCALL 2 (E XCONS))
NIL
(LAP BIVCHAIN SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG6)
TAG7 (MOVE 1 -1 P)
(CALL 1 (E PUTNEWNODE))
(MOVEM 1 -1 P)
(MOVEM 1 0 P)
TAG3
TAG4
TAG5 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP CONNECT SUBR)
(PUSH P 1)
(PUSH P 2)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(MOVE 1 -1 P)
(CAMN 1 0 P)
(JRST 0 TAG5)
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
TAG5 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP COPYSTRUC SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL LASTNODE))
(POP P 1)
(JCALL 1 (E COPY))
NIL
(LAP DISCONNECT SUBR)
(PUSH P 1)
(PUSH P 2)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 2)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(HRRZ@ 2 -1 P)
(MOVEM 1 -1 P)
(HLRZ@ 1 0 P)
(CALL 2 (E DELETE))
(HRRM@ 1 -1 P)
(SUB P (C 0 0 2 2))
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
(HRRZ@ 2 -1 P)
(MOVEM 1 -1 P)
(HLRZ@ 1 0 P)
(CALL 2 (E DELETE))
(HRRM@ 1 -1 P)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP FINDCTE SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 1 (E NUMBERP))
(JUMPE 1 TAG6)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE STRUC))
(JRST 0 TAG8)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(JRST 0 TAG7)
TAG8
TAG9
TAG7 (PUSH P 0 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(HRRZ@ 1 1)
(MOVE 2 -4 P)
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 1 -1 P)
(JRST 0 TAG11)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
TAG11 (SUB P (C 0 0 3 3))
(JRST 0 TAG5)
TAG6 (MOVE 1 0 P)
(CALL 1 (E NUMBERP))
(JUMPE 1 TAG16)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E FINDCTE))
(JRST 0 TAG5)
TAG16 (MOVEI 1 (QUOTE (BAD ARGUMENTS TO FINDCTE)))
(CALL 1 (E ERROR))
TAG17
TAG5 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP FIRSTOFNODES SUBR)
(CALL 1 (E NODES))
(HLRZ@ 1 1)
(POPJ P)
NIL
(LAP LASTOFNODES SUBR)
(CALL 1 (E NODES))
(CALL 1 (E LAST))
(HLRZ@ 1 1)
(POPJ P)
NIL
(LAP LISTBYVALENCE SUBR)
(PUSH P 1)
(CALL 1 (E NODES))
(CALL 1 (E LENGTH))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE 2) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 2 (QUOTE 999))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(MOVEI 2 (QUOTE 0))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG4)
(MOVE 2 -1 P)
(MOVE 1 -4 P)
(CALL 2 (E VALENCETYPE))
(MOVEM 1 -2 P)
(CALL 1 (E LENGTH))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E *DIF))
(MOVEM 1 -3 P)
(PUSH P (C 0 0 TAG13 0))
(PUSH P -1 P)
(MOVE 1 -4 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG13 (MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP PUTFVN SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(HRRZ@ 1 1)
(HLRZ@ 2 1)
(MOVE 1 -1 P)
(CALL 2 (E FINDCTE))
(MOVEM 1 -1 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 TAG8 0))
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -5 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG13)
(JRST 0 TAG4)
TAG13 (MOVE 2 0 P)
(MOVEI 1 (QUOTE FV))
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 2 0 P)
(SUB P (C 0 0 2 2))
(PUSH P 2)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG8 (HRRM@ 1 0 P)
(SUB P (C 0 0 1 1))
(MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP PUTFVS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -7 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -6 P)
(MOVEM 1 -4 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -3 P)
TAG2 (MOVE 1 -4 P)
(JUMPE 1 TAG9)
(HLRZ@ 1 1)
(MOVEM 1 -5 P)
(MOVEI 2 (QUOTE 10))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG9)
(MOVE 1 -5 P)
(MOVEM 1 -1 P)
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVE 3 -3 P)
(MOVE 2 1)
(MOVEM 1 -2 P)
(MOVE 1 -9 P)
(CALL 3 (E PUTFVN))
(MOVEM 1 -9 P)
(MOVEM 1 0 P)
TAG4
TAG5 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG3)
TAG6
TAG7 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG8 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG2)
TAG9
TAG10 (HRRZ@ 1 -7 P)
(MOVEM 1 -7 P)
(JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
(SUB P (C 0 0 10 10))
(POPJ P)
NIL
(LAP PUTNEWNODE SUBR)
(PUSH P 1)
(JUMPE 1 TAG2)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVEI 1 (QUOTE (NIL)))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL LASTNODE))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(HLRZ@ 2 0 P)
(EXCH 1 -1 P)
(CALL 2 (E PUTNEWNODEINCT))
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL LASTNODE))
(CALL 2 (E CONS))
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL LASTNODE))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL LASTNODE))
(MOVEI 1 (QUOTE (NIL)))
(CALL 1 (E NCONS))
(MOVE 2 (SPECIAL LASTNODE))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE CTE))
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (NIL)))
(PUSH P 1)
(MOVE 1 (SPECIAL LASTNODE))
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE STRUC))
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP PUTNEWNODEINCT SUBR)
(PUSH P 1)
(PUSH P 2)
(HLRZ@ 1 2)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(PUSH P 1)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
(JCALL 2 (E CONS))
NIL
(LAP NODEVALENCE SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (NULL NODE GIVEN TO NODEVALENCE)))
(CALL 1 (E ERROR))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 1)
(CAIE 1 (QUOTE CTE))
(JRST 0 TAG3)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(CALL 1 (E LENGTH))
(JRST 0 TAG1)
TAG3 (HRRZ@ 2 0 P)
(HLRZ@ 1 0 P)
(CALL 2 (E FINDCTE))
(CALL 1 (E NODEVALENCE))
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP VALENCETYPE SUBR)
(PUSH P 1)
(PUSH P 2)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E NODEVALENCE))
(MOVE 2 -3 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(MOVE 2 0 P)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP SINGLERINGS SUBR)
(CALL 1 (E SINGLERING))
(JCALL 1 (E NCONS))
NIL
(LAP INSERTMARKERS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 3)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -9 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(MOVEM 1 -8 P)
(MOVE 1 -10 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(MOVEM 1 -7 P)
(MOVE 1 -8 P)
(MOVEM 1 -5 P)
(MOVE 1 -7 P)
(MOVEM 1 -3 P)
TAG2 (MOVE 1 -5 P)
(JUMPE 1 TAG9)
(HLRZ@ 1 1)
(MOVEM 1 -6 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG9)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(MOVEM 1 -1 P)
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVE 2 -13 P)
(MOVEM 1 -2 P)
(CALL 2 (E FINDCTE))
(HRRZ@ 1 1)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(HLRZ@ 2 -6 P)
(HRLM@ 2 1)
TAG4
TAG5 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG3)
TAG6
TAG7 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
TAG8 (HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
(JRST 0 TAG2)
TAG9
TAG10 (HRRZ@ 1 -10 P)
(MOVEM 1 -10 P)
TAG11 (HRRZ@ 1 -9 P)
(MOVEM 1 -9 P)
(JRST 0 TAG1)
TAG12 (MOVE 1 0 P)
(SUB P (C 0 0 11 11))
(MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP DELETE SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(JUMPE 1 TAG1)
(MOVE 2 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG2)
(HRRZ@ 1 0 P)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E DELETE))
(POP P 2)
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL